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10 



bl 
b 

beq 
bgt 
bhi 

stblink 
jblink 
jr 
jlr 
movr 
movf Or 
movf Oh 
movrh 
movhr 
15 cmprh 
cmphr 
cmpr 
cmpi64 
movi64 
20 addi32 
subi32 
addabi8 
subabi8 
rf subneaaa 
^ 25 subhhh 



subaaa 



.-.-4 % 

HI subaab 

TPS' 

I* subrrr 
Js- addaab 
30 addrrr 
addrrh 
n asli8 

aslabl 
rl aslab2 

35 asri8 
P h asrabl 
>|ft asrab2 
£1 lsri8 
r' lsrabl 
r ' 40 lsrab2 
andi32 
andfi32 
andaab 
andfab 
45 mulOab 
muli32 
ldabc 
ldr64 
ldwr32 
50 ldbrl6 
str64 
stbr8 
stwrl6 
ldrpc 
55 addrpc 
ldfp32 
stfp32 
addfpi32 
ldgp 

60 
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# 

# Confidential Information 

# Limited Distribution to Authorized Persons Only 

# Created 2000 and Protected as an Unpublished Work 

# Under the U . S . Copyright act of 1976. 

# Copyright © 2000-2001 ARC CORES LTD 

# All Rights Reserved 
# 



# SCCS release : %M% %I% %G% 
# 

# Description : Script to analyse an ARC assembler file and 

# print frequency of usage stats for various 

# ARC instruction formats 
# 

# 
# 

# — 



BEGIN { 
} 

{op[$l]++} 

END { 
OFS="\t" 

for (i in op) print i, op[i], int (op [i] *1000/NR) /10 

} 



#/ ( j I jl |b fbl) (ge | gt | le i It i ne | eqlpl jmi | hi | hs | lo i Is) ?\ .d/ { 

# stored = $0 

# sub(/\.d/, "", stored) 

# getline 

# print $0 

# print stored 

# next 

#} 
# 

#{ print $0 } 



-28- 



APPENDIX III 

Copyright © 2000-2001 ARC International pic. All rights reserved. 



a 

o 
m 
$ 

m 

Q 

yj 

J* 

a 



-29- 



# Confidential Information 

# Limited Distribution to Authorized Persons Only 

# Created 2 000 and Protected as an Unpublished Work 

# Under the U. S . Copyright act of 1976. 

# Copyright © 2000-2001 ARC CORES LTD 

# All Rights Reserved 
# 

# SCCS release : %M% %I% %G% 
# 

# Description : Script to analyse an ARC assembler file and 

# print frequency of usage stats for various 

# proposed ARC instruction formats 
# 

# 
# 

#— 



# 



BEGIN { 
out = "c" 

#reg - "%r (0 1 1 [ 2 [ 3 1 13 1 14 1 15 j 16) , " 

reg = "%r (0 1 1 1 2 | 3 1 13 [ 14 1 15 j 16} (["0-9] |$)" 

regh = "% ( r [ 0-9] + I sp I fp I gp I blink) ( [ A 0-9] 1$)" 

regOl = "%r(0[l) ( ["0-9] |$) " 

reg23 = "%r(2|3) ( ["0-9] 1$) " 

regl316 = "%r (13 | 14 | 15 | 16) (["0-9] |$)" 

pete = 0 

printf >out 

} 



function nxt ( ) { 
print $0 »out 
next 

} 

function nxtc ( ) { 
print "c" $0 »out 
next 

} 



$1 = "bl" { 
bl++ 

if ($2 ~ / prolog_.*/) { 

push++ 

nxt (} 
} else { 

calls [$2]++ 

nxtc ( ) 

} 

} 

$1 == "b n { 
b++ 

if ($2 ~ / epilog_.V) { 

pop++ 

nxt () 
} else { 

nxtc ( ) 

} 

} 

$1 "beq" | | $1 = "bne" { 

if ($2 !~ / epilog_.*/) { 

beq++ 
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nxtc { ) 
} else { 
nxt () 

} 

5 } 

$1 == »bgt" || $1 ~ "ble" | | $1 == "bge" || $1 == "bit" { 
if ($2 !~ /_epilog_.*/) { 
bgt++ 
nxtc ( ) 
10 } else { 
nxt () 

} 

} 

$1 == "bhi" || $1 = "bis" || $1 = "bhs" I j $1 == "bio" { 
15 if ($2 !- /_epilog_.V) { 
bhi++ 
nxt () 
} else { 
nxt () 

20 } 

} 

□ $1 == "bpl" I j $1 "bmi" { 

■ if ($2 !~ /_epilog_.*/) { 

m bpi++ 

25 nxt ( ) 

S } else { 

nxt ( ) 

4! } 

111! } 

>; 30 $1 "jeq" || $1 == "jne" { 

if ($2 ~ "blink") { 
1, beq++ 
CJ nxtc() 

yj } 

l! 35 nxt() 

7* } 

1; $1 == "jgt" M $1 = "jle" | | $1 == "jge" j | $1 == "jit" { 

P if ($2 ~ "blink") { 

y ;: bgt++ 
40 nxtc{) 
} 

nxt {) 

} 

$1 == "j" { 
45 if ($2 - "blink") { 
jblink++ 
nxtc ( ) 

} 

if ($2 ~ reg) { 
50 jr++ 
nxtc ( ) 

} 

nxt () 

} 

55 $1 == "jl" { 

if ($2 ~ reg) { 
jlr++ 
nxtc ( ) 

} 

60 nxt { ) 

} 

$1 == "Id" { 
if ($2 - reg) { 
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ld++ 

if ($3 == n [%fp, n ) { 

# ldfpa[$4]++ 
ldfp++ 

5 if (($4+0) >= -32 && ($4+0) <= -4) { 

ldfp32++ 
nxtc ( ) 

} 

nxt {) 

10 } 

if ($3 = "[%sp,") { 

# ldspa[$4]++ 
ldsp++ 

nxt () 

15 } 

if ($3 = "[%gp,") { 
ldgp++ 
nxtc ( ) 

} 

20 if ($3 ~ reg) { 

# ldra[$4]++ 
M ldr++ 

\Q if ($3 - A]/ M ($4 ~ A[0-9]/ && ($4+0) >= 0 && ($4+0) < 64)) { 

fn ldr64++ 
2f 25 nxtc ( ) 

y } 

yj if (pete) { 

M if ($3 - A]/ | | ($3 - regOl && ($4 - / A [0-9]/ && ($4+0) >= 0 && ($4+0) < 

m 128))) { 

^ 30 ldr64p++ 

^ nxtc ( ) 

a } 

O if ($3 - A]/ || ($3 - reg23 && ($4 ~ A [0-9]/ && ($4 + 0) >= 0 && ($4+0) < 

Uj 64))) { 

Lh ldr64p++ 

! SSI nxtc ( ) 

i: > 

M if ($3 ~ A]/ II ($3 - regl316 && ($4 - / A [0-9]/ && ($4+0) >= 0 && ($4+0) < 

hh 32))) { 

40 ldr64p++ 
nxtc ( ) 

} 

} 

if ($4 - reg) { 
45 ldabc++ 
nxtc ( ) 

} 

nxt () 

} 

50 } 

nxt {) 

} 

$1 == "Idw" { 
if ($2 ~ reg) { 
55 idw++ 

if ($3 == "[%fp,") { 
ldwfp++ 

if (($4+0) >= -32 && ($4+0) <= -4) { 
ldwfp32++ 
60 nxtc ( ) 

} 

nxt() 

} 
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if ($3 == n [%sp,") { 
ldwsp++ 
nxt () 

} 

5 if ($3 "[%gp,") { 

ldwgp++ 
nxtc ( ) 

} 

if ($3 - reg) { 
10 ldwr++ 

if ($3 ~ /\]/ | i ($4 - A[0-9]/ && ($4+0) >= 0 && ($4+0) < 32)} { 
ldwr32++ 
nxtc ( ) 

} 

15 if ($4 ~ reg) { 

ldwabc++ 
nxt () 

} 

nxt () 

20 } 

} 

Cj nxt < ) 

2S $1 == "ldb" { 

25 if ($2 ~ reg) { 
U ldb++ 
01 if ($3 == "[%fp,") { 

Jr. ldbfp++ 

if (($4+0) >= -32 && ($4+0) <= -4) { 
^ 30 ldbfp32++ 
tfS nxt ( ) 

s } 

nxt() 

} 

35 if ($3 == n [%sp,") { 

ldbsp++ 
nxt () 

} 

if ($3 = "[%gp,"> { 
40 ldbgp++ 
nxt () 

} 

if ($3 - reg) { 
ldbr++ 

45 if ($3 ~ A]/ II ($4 - / A [0-9]/ && ($4 + 0) >= 0 && ($4+0) < 16)) { 

ldbrl6++ 
nxtc ( ) 

} 

if ($4 - reg) { 
50 ldbabc++ 
nxt () 

} 

nxt() 

} 

55 } 

nxt ( ) 

} 

/st.%blink, \[%sp, 4\]/ { 
stblink++ 
60 nxtcO 
} 

$1 == "st" { 
if ($2 - reg) { 



-33- 



st++ 

if ($3 == "[%fp,") { 

# stfpa[$4]++ 
stfp++ 

5 if (($4+0) >= -32 && ($4+0) <= -4) { 

stfp32++ 
nxtc ( ) 

} 

nxt<) 

10 } 

if ($3 == "[%sp,") { 

# stspa[$4]++ 
stsp++ 

nxt () 

15 } 

if ($3 = "[%gp,") { 
stgp++ 
nxt () 

} 

20 if ($3 ~ reg) { 

# stra[$4]++ 
str++ 

US if ($3 - A]/ | | ($4 ~ A[0-9]/ && ($4+0) >= 0 && ($4+0) < 64) ) { 

M[J str64++ 
£1 25 nxtc() 

} 

W nxt ( ) 

} 

£ } 

m 30 nxt ( ) 

% } 

$1 == "stw" { 
^ if ($2 - reg) { 

Q stw++ 

35 if ($3 == w [%f Pf ") { 

# stwfpa[$4]++ 
stwfp++ 

J* if (($4+0) >- -32 && ($4+0) <= -4) { 

Cl stwfp32++ 
U 40 nxt() 
} 

nxt () 

} 

if ($3 — "[%sp,") { 
45 # stwspa[$4]++ 
stwsp++ 
nxt () 

} 

if ($3 = "[%gp,"} { 
50 stwgp++ 
nxt () 

} 

if ($3 ~ reg) { 

# stwra[$4]++ 
55 stwr++ 

if ($3 ~ A]/ || ($4 ~ / A [0-9]/ ($4+0) >- 0 && ($4+0) < 16) ) { 
stwrl6++ 
nxtc ( ) 

} 

60 nxt ( ) 

} 

} 

nxt () 
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} 

$1 == "stb" { 
if ($2 - reg) { 
stb++ 

5 if ($3 == "[%fp,") { 

# stbfpa[$4]++ 
stbfp++ 

if ({$4+0) >= -32 && ($4+0) <= -4) { 
stbfp32++ 
1 0 nxt ( ) 

} 

nxt () 

} 

if ($3 == "[%sp,") { 
15 # stbspa[$4]++ 
stbsp++ 
nxt () 

} 

if ($3 = "[%gp,") { 
20 stbgp++ 
nxt () 

n > 

% if <$ 3 ~ r «g) { 

# stbra[$4]++ 
p| 25 stbr++ 

Cj if <$ 3 - A]/ M ($4 - / A [0-9]/ && ($4+0) >= 0 && ($4+0) < 8)) { 

^ stbr8++ 
"?! nxtc ( ) 

ssf-as J. 

01 30 nxt() 

:|) } 

J } 

^ nxt ( ) 

llJ 35 $1 == "mov.f" { 

H : if ($2 == "0," && $3 - reg) { 

X movf0r++ 

fi% nxtc ( ) 

^ ^ } if ($2 == "0," && $3 ~ regh) { 
?** 40 movf0h++ 
nxtc ( ) 

} 

nxt () 

} 

45 $1 == "mov" { 

if ($3 - / A -?[0-9]/) { 
movi++ 
movia [$3] ++ 
if ($2 - reg) { 
50 if ($3 >= 0 && $3 < 64) { 

movi64++ 
nxtc ( ) 

} 

if (pete) { 

55 if ($2 - regOl && $3 >= 0 && $3 < 128) { 

movi64p++ 
nxtc () 

} 

if ($2 - reg23 && $3 >= 0 && $3 < 64) { 
60 movi64p++ 
nxtc ( ) 

} 

if ($2 - reg!316 && $3 >= 0 && $3 < 32) { 
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movi64p++ 
nxtc ( ) 

} 

} 

if ($3 < -256 I I $3 > 255) { 
ldrpc++ 
nxtc ( ) 

} 

} 

nxt() 

} 

if ($3 ~ reg) { 
if ($2 ~ reg) { 
movr++ 
nxtc { ) 

} 

} 

if ($2 - reg) { 
if ($3 ~ regh) { 
movrh++ 
nxtc ( ) 

} 

} 

if ($2 - regh) { 
if {$3 - reg) { 
movhr++ 
nxtc () 

} 

} 

if ($3 1- && $2 ~ reg) { 

ldrpc++ 
nxtc ( ) 

} 

nxt () 

} 

$1 = "add" { 
if ($2 == $3 || $2 — ($3 ",") M $2 == ($4 
if ($4 - / A -?[0-9]/) { 
addi++ 
# addia[$4]++ 
if ($3 - reg) { 
if ($4 >= -32 && $4 < 0) { 
subi32++ 
nxtc ( ) 

} 

if ($4 >- 0 && $4 < 32) { 
addi32++ 
nxtc ( ) 

} 

} 

} 

if ($2 - reg && $3 - reg $4 ~ reg) { 
addaab++ 
nxtc ( ) 

} 

if {$2 - reg && $3 ~ reg && $4 ~ regh) { 
addrrh++ 
nxtc ( ) 

} 

if ($2 - reg && $3 ~ regh && $4 ~ reg) { 
addrrh++ 
nxtc ( ) 

} 
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if ($4 ~ / A -?[0-9]/) { 
if ($2 - reg) { 
if ($3 ~ reg) { 
5 if ($4 >= -8 && $4 < 0) { 

subabi8++ 
nxtc ( ) 

} 

if ($4 >= 1 && $4 <= 8) { 
10 addabi8++ 
nxtc ( ) 

} 

} 

if ($3 ~ "%fp") { 
15 if {$4 >= -32 && $4 < 0) { 

addfpi32++ 
nxtc ( ) 

} 

} 

20 if {$3 - / A %r([12] [0-9])/ && $4 >= -512 && $4 < 512) { 

addrpc++ 
nxtc ( ) 

0 } 

2* 25 nxt ( ) 

0 if ($2 - reg && $3 - reg && $4 ~ reg) { 

Qj addrrr++ 
nxtc() 

2: 30 } 
^ > 

$1 = "sub" { 
» if ($4 - / A -?[0-9]/) { 

f% subi++ 

n* 35 if ($2 == $3) { 

'?* # subia[$4]++ 

if ($3 - reg) { 
S if ($4 >= -32 && $4 < 0) { 

f J addi32++ 
T* 40 nxtc ( ) 

} 

if ($4 >= 0 && $4 < 32) { 
subi32++ 
nxtc { ) 

45 } 

} 

} 

if ($2 ~ reg) { 
if ($3 - reg) { 
50 if ($4 >= -8 && $4 < 0) { 

addabi8++ 
nxtc {) 

} 

if ($4 >= 1 && $4 < 8) { 
55 subabi8++ 
nxtc ( ) 

} 

} 

} 

60 nxt() 
} 

if ($2 == $3 && $2 == {$4 ",")) { 
if {$2 ~ reg && $3 - reg && $4 ~ reg) { 
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subaaa++ 
nxtc ( ) 

} 

if ($2 ~ regh && $3 ~ regh && $4 ~ regh) { 
5 subhhh++ 
nxtc ( ) 

} 

} 

if ($2 ~ reg) { 
10 subr+4- 

if ($2 == $3) { 
if ($2 ~ reg && $3 - reg && $4 ~ reg) { 
subaab++ 
nxtc ( ) 

15 } 

if ($2 ~ reg && $3 ~ reg && $4 - regh) { 
subrrh++ 
nxtc ( ) 

} 

20 if ($2 ~ reg && $3 ~ regh && $4 - reg) { 

subrrh++ 
r| nxtc ( ) 

•li > 

25 if ($3 - reg && $4 - reg) { 

Q subrrr++ 
OJ nxtc() 
} 

nxt ( ) 

^ 30 } 

} 

s $1 == "sub.f" { 

Q if ($2 == "0,") { 

f 3 l if ($3 ~ reg && $4 - reg) { 

35 cmpr++ 
nxtc ( ) 

} 

if ($4 - / A -?[0-9]/) { 
cmpi++ 
40 # cmpia[$4]++ 

if ($3 - reg) { 
if ($4 >= 0 && $4 < 64) { 
cmpi64++ 
nxtc ( ) 

45 } 

if (pete) { 
if ($3 ~ regOl && $4 >= 0 && $4 < 128) { 
cmpi64p++ 
nxtc ( ) 

50 } 

if ($3 - reg23 && $4 >= 0 && $4 < 64) { 
cmpi64p++ 
nxtc { ) 

} 

55 if ($3 ~ regl316 && $4 >- 0 && $4 < 32) { 

cmpi 64 p++ 
nxtc ( ) 

} 

} 

60 } 

nxt () 

} 

if ($3 ~ reg) { 
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if {$4 ~ regh) { 
cmprh++ 
nxtc ( ) 

} 

} 

if ($3 - regh) { 
if {$4 - reg) { 
cmphr++ 
nxtc ( ) 

} 

} 

} 

nxt() 

} 

$1 == "sub.ne" { 
if ($2 = $3 && $2 = ($4 ",») ) { 
if ($4 - reg && $2 ~ reg && $3 ~ reg) { 
subneaaa++ 
nxtc { ) 

} 

} 

nxt () 

} 

$1 == "sub.eq" { 
if ($2 == $3 && $2 == ($4 ",")) { 
if ($4 ~ reg && $2 ~ reg && $3 - reg) { 
subeqaaa++ 
nxtc ( ) 

} 

} 

nxt<) 

} 

$1 == "asl" { 
if ($4 - [0-9] /) { 

asli++ 

if ($2 == $3) { 
# aslia[$4]++ 
if ($3 ~ reg) { 
if ($4 >= 1 && $4 <= 8) { 
asli8++ 

} 

if ($4 >= 1 && $4 < 32) { 
asli32++ 

} 

nxtc ( ) 

} 

} 

if ($2 - reg) { 
if ($3 ~ reg && $4 >= 2 && $4 < 3) { 
aslab2++ 
nxtc ( ) 

} 

} 

nxt () 

} 

if ($4 - reg && $2 - reg && $3 - reg) { 
aslaab++ 
nxtc ( ) 

} 

if ($2 ~ reg && $3 ~ reg && $4 !- reg) { 
aslabl++ 
nxtc ( ) 

} 
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} 

$1 == "asr" { 
if ($4 ~ / A -?[0-9]/) { 
asri++ 

if ($2 = $3) { 

# asria[$4]++ 

if ($3 ~ reg) { 
if ($4 >= 1 && $4 <= 8) { 
asri8++ 

} 

if ($4 >= 1 && $4 < 32) { 
asri32++ 

} 

nxtc ( ) 

} 

} 

if ($2 ~ reg) { 
if ($3 - reg && $4 >= 2 && $4 < 3) { 
asrab2++ 
nxtc ( ) 

} 

} 

nxt () 

} 

if ($4 - reg && $2 - reg && $3 ~ reg) { 
asraab++ 
nxtc () 

} 

if ($2 - reg && $3 - reg && $4 J- reg) { 
asrabl++ 
nxtc { ) 

} 

} 

$1 == "Isr" { 
if ($4 - / A -?[0-9]/) { 
lsri++ 

if ($2 == $3) { 

# lsria[$4]++ 

if ($3 ~ reg) { 
if ($4 >= 1 && $4 <= 8) { 
lsri8++ 

} 

if ($4 >= 1 && $4 < 32) { 
lsri32++ 

} 

nxtc ( ) 

} 

} 

if {$2 ~ reg) { 
if ($3 - reg && $4 >= 2 && $4 < 3) { 
lsrab2++ 
nxtc ( ) 

} 

} 

nxt () 

} 

if ($4 - reg && $2 ~ reg && $3 ~ reg) { 
lsraab++ 
nxtc ( ) 

} 

if ($2 ~ reg && $3 - reg && $4 ! - reg) { 
israbl++ 
nxtc () 



-40- 



} 

} 

$1 "mul64" { 
if ($2 — "0,") { 
if {$4 ~ / A -?[0-9]/) { 
muli++ 

# mulia[$4]++ 

if ($3 - reg) { 
if {$4 >- 0 && $4 < 32) { 
muli32++ 
nxtc ( ) 

} 

} 

} 

if ($3 ~ reg && $4 ~ reg) { 
mul0ab++ 
nxtc ( ) 

} 

} 

nxt () 

} 

$1 == "and.f" { 
if ($ 2 == "0,") { 
if ($4 ~ /^-?[0-9]/) { 
andf i++ 

# andfia[$4]++ 
if ($3 - reg) { 

if ($4 >= 0 && $4 < 32) { 
andf i 32++ 
nxtc ( ) 

} 

} 

} 

if ($3 ~ reg && $4 - reg) { 
andf ab++ 
nxtc ( ) 

} 

} 

nxt () 

} 

$1 == "and" { 
if ($2 == $3 || $2 == ($3 ",") || $2 — 
if ($4 ~ / A -?[0-9]/) { 
andi++ 

# andia[$4]++ 

if {$3 - reg) { 
if ($4 >= 0 && $4 < 32) { 
andi32++ 
nxtc ( ) 

} 

} 

} 

if ($2 ~ reg && $3 ~ reg && $4 ~ reg) { 
andaab++ 
nxtc ( ) 

} 

} 

if ($2 ~ reg && $3 - reg && $4 ~ reg) { 
andrrr++ 
nxt () 

} 

} 

$1 = "extb" { 
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if ($2 — ($3 ",")) { 
if {$2 - reg && $3 ~ reg) { 
extbr++ 
nxtc ( ) 

5 } 
} 

nxt () 

} 

$1 == "extw" { 
10 if ($2 = {$3 ",")) { 

if ($2 - reg && $3 ~ reg) { 
extwr++ 
nxtc ( ) 

} 

15 } 

nxt () 

} 

$1 = "sexb" { 
if ($2 == ($3 ",")) { 
20 if ($2 ~ reg && $3 ~ reg) { 

sexbr++ 
m nxtc ( ) 

. I 

;* } 
yy 25 nxt ( ) 

Q } 

m $1 == "sexw" { 

% if ($2 == ($3 »,»)) { 

% if ($2 - reg && $3 ~ reg) { 

U l 30 sexwr++ 
A nxtc ( ) 

} 

m } 

!"! nxt ( ) 

Ui 35 } 

jk* ( $2 == $3 || $2 == ($3 ",») || $2 == {$4 ",")) { 

M if ($1 = "add" II $1 == "sub" | | $1 = "and" | | $1 = "or" 1 | $1 == "xor' 

fH $1 "asl" || $1 == "asr" | | $1 == "Isr") { 

r* if ($2 ~ reg) { 

40 if ($2 == $3) { 

if ($4 - reg) { 
opaab[$l]++ 
nxtc ( ) 

} 

45 } else { 

if ($3 ~ reg && $2 == ($4 ",") ) { 
opaab[$l]++ 
nxtc { ) 

} 

50 } 



} 



} 

} 

55 { 

nxt () 

# print $0 
} 

60 END { 

if (1) { 
OFS = "\t" 

# print "\nopaab" 
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for (i in opaab) { 
if (i == " add " | | i == "sub" | | i -= "and" | | i == * 
"asl" | | i == "asr" j | i = "lsr") { 

print i, opaab [i], int (opaab [i] *1000/NR) /10 

} 

} 

# print "\nldfpa" 

# for (i in ldfpa) print i, ldfpa[i] 

# print "\nstfpa" 

# for (i in stfpa) print i, stfpa[i] 

# print "\nldrOa" 

# for (i in IdrOa) print i, ldrOa[i] 

# print "\nmovia" 

# for {i in movia) print i, movia[i] 

# print "\naddia" 

# for (i in addia) print i, addia[i] 

# print "\nsubia" 

# for (i in subia) print i, subia[i] 

# print "\ncmpia" 

# for (i in cmpia) print i, cmpia[i] 

for (i in calls} { 

# print i, calls [i] 
if (calls [i] > 1) { 

calls2 += (calls [i] -2) 

} 

callsall += calls [i] 

} 

# print "callsall", callsall, int (callsall*1000/NR) /10 

# print "calls2", calls2, int (calls2*1000/lS!R) /10 

# bl = calls2 
bl = bl - push 
b = b - pop 

print "bl", bl, int (bl*1000/NR) /10 

# print "push", push, int (push*1000/NR) /10 

print "b", b, int (b*1000/NR) /10 

# print "pop", pop, int (pop*1000/NR) /10 
print "beq", beq, int (beq*1000/NR) /10 
print "bgt", bgt, int (bgt*1000/NR) /10 
print "bhi", bhi, int (bhi*1000/NR) /10 
print "bpl", bpl, int (bpl*1000/NR) /10 

print "stblink", stblink, int (stblink*1000/NR) /10 

print "jblink", jblink, int ( jblink*1000/NR) /10 

print "jr", jr, int ( jr*1000/NR) /10 

print "jlr", jlr, int ( jlr*1000/NR) /10 

print "movr", movr, int (movr*1000/NR) /10 

print "movfOr", movfOr, int (movf 0r*1000/NR) /10 

print "movf Oh", movf Oh, int (movf 0h*1000/NR) /10 

print "movrh", movrh, int (movr h* 1000 /NR) / 10 

print "movhr", movhr, int (movhr*1000/NR) /10 

print "cmprh", cmprh, int (cmprh*1000/NR) /10 
print "cmphr", cmphr, int (cmphr*1000/NR) /10 
print "cmpr", cmpr, int (cmpr*1000/NR) /10 

print "cmpi64", cmpi64, int (cmpi64*1000/NR) /10 

print "cmpi64p", cmpi64p, int (cmpi64p*1000/NR) /10 

print "movi64", movi64, int (movi64*1000/NR) /10 

print "movi64p", movi64p / int (movi64p*1000/NR) /10 
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"addi32", addi32, int (addi32*1000/NR) /10 
'subi32", subi32, int (subi32*1000/NR) /10 

"addabi8", addabi8, int (addabi8*1000/NR) /10 
" s ubab i 8 " , s ubabi 8 , int ( s ubabi 8 * 1 0 0 0 /NR ) / 1 0 



"subneaaa", subneaaa, 
"subeqaaa", subeqaaa, 



int (subneaaa*1000/NR) /10 
int (subeqaaa*1000/NR) /10 



T subhhh", 
subaaa", 
subaab", 
subrrr" , 
addaab" , 
addrrr", 
addrrh", 



subhhh, 
subaaa, 
subaab, 
subrrr, 
addaab, 
addrrr, 
addrrh, 



int (subhhh* 
int (subaaa* 
int (subaab* 
int (subrrr* 
int (addaab 
int (addrrr 
int (addrrh 



1000/NR) /10 
lOOO/NR) /10 
1000/NR) /10 
lOOO/NR) /10 
*1000/NR) /10 
*1000/NR) /10 
*1000/NR) /10 



asli8", asli8, int (asli8*1000/NR) /10 
"asli32", asli32, int <asli32*1000/NR) /10 
aslabl", aslabl, int (aslabl*1000/NR) /10 
aslab2" f aslab2 f int (aslab2*1000/NR) /10 
aslaab", aslaab, int (aslaab*1000/NR) /10 

asri8", asri8, int (asri8*1000/NR) /10 
"asri32", asri32, int (asri32*1000/NR) /10 
asrabl", asrabl, int (asrabl*1000/NR) /10 
asrab2", asrab2, int (asrab2*1000/NR) /10 
asraab", asraab, int (asraab*1000/NR) /10 

lsri8", lsri8, int (lsri8*10O0/NR) /10 
"lsri32", lsri32, int ( Isri32*1000/NR) /10 
lsrabl", lsrabl, int (lsrabl*1000/NR) /10 
lsrab2", lsrab2, int (Israb2*1000/NR) /10 
Israab", Israab, int (lsraab*1000/NR) /10 

andi32" / andi32, int (andi32*1000/NR) /10 
andfi32'\ andfi32, int (andf i32*1000/NR) /10 
andaab " , andaab , int ( andaab * 1 0 0 0 /NR ) / 1 0 
andfab", andfab, int(andfab *1000/NR) /10 



mulOab", 
muli32", 

ldabc", . 

ldbabc", 

ldwabc", 

ldr64", 

ldr64p", 

ldwr32", 

ldbrl6", 

str64" / 

stbr8", 

stwrl6" f 



mulOab, int (mulOab *1000/NR) /10 
muli32, int(muli32 *1000/NR) /10 



ldabc, int (ldabc *1 
ldbabc , int ( ldbabc 
ldwabc, int(ldwabc 

ldr64, int(ldr64 *1 
ldr64p, int (ldr64p 
ldwr32, int (ldwr32 
ldbrl6 f int(ldbrl6 

str64, int(str64 *1 

stbr8 f int(stbr8 *1 
stwrl6, int(stwrl6 



OOO/NR) /10 
*1000/NR) /10 
*1000/NR) /10 
OOO/NR) /10 
*1000/NR) /10 
*10O0/NR) /10 
*1000/NR) /10 
OOO/NR) /10 
OOO/NR) /10 
*1000/NR) /10 



ldrpc", ldrpc, int(ldrpc *1000/NR)/10 
addrpc " , addrpc , int ( addrpc *1000/NR)/10 

ldfp32", ldfp32, int (Idfp32*1000/NR) /10 
stfp32", stfp32, int (stfp32*1000/NR) /10 
addfpi32", addfpi32, int (addf pi32 *1000/NR) /10 



print "ldgp", ldgp, int (ldgp*1000/NR) /10 



-44- 



print "stgp", stgp, int (stgp*1000/NR) /10 



print "extbr" f extbr, int (extbr*1000/NR) /10 

print "extwr", extwr, int (extwr*1000/NR) /10 

print "sexbr", sexbr, int (sexbr*1000/NR) /10 

print "sexwr", sexwr, int (sexwr*1000/NR) /10 

# print "movi", movi, "movi 64", movi64, "movil28", movi!28 

# print "addi", addi, "addi32", addi32, "addi64", addi64, "addil28", addil28 

# print "subi", subi, "subi32", subi32, "subi64", subi64 / "subil28", subil28 
} 

} 

#function p(a, b) { 

# print "a", b, int <b*100/NR) 
#} 

I jljblbl) {ge|gt|lejlt|ne|eq|pl|mi|hi|hsilo|ls)?\.d/ { 

# stored = $0 

# sub(/\.d/, "", stored) 

# getline 

# print $0 

# print stored 

# nxtc ( ) 
#} 

# 

#{ print $0 } 
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# 

# Confidential Information 

# Limited Distribution to Authorized Persons Only 

# Created 2000 and Protected as an Unpublished Work 

# Under the U . S . Copyright act of 1976. 

# Copyright © 2000-2001 ARC CORES LTD 

# All Rights Reserved 
# 



# SCCS release : %M% %I% %G% 
# 

# Description : Script to mark pairs of compress instructions 

# for an ARC assembler file. 
# 

# 
# 

#— 



============== „ # 

/ A c/ { 
a=$0 
nra=NR 
getline b 
if (b - /-c/) { 

C + + 

print "p" a 
print "p" b 
next 
} else { 
print a 
print b 
next 

} 

} 
{ 

print $0 

} 

END { 

# print c 

} 
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# 

# Confidential Information 

# Limited Distribution to Authorized Persons Only 

# Created 2000 and Protected as an Unpublished Work 

# Under the U . S . Copyright act of 1976. 

# Copyright © 2000-2001 ARC CORES LTD 

# All Rights Reserved 
# 



# SCCS release : %M% %I% %G% 
# 

# Description : Script to print the "paired" ISA format compression 
ratio 

# 
# 
# 

#— 



BEGIN { 

system ("grep -c \ ?,A pc\" cp >ta") 
getline a <"ta" 

system ("grep -c \".\" cp >tb") 

getline b <"tb" 

print int (a*1000/b) /10 

} 

□ 
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rem 

rem Confidential Information 

rem Limited Distribution to Authorized Persons Only 

rem Created 2000 and Protected as an Unpublished Work 

rem Under the U. S . Copyright act of 1976. 

rem Copyright © 2000-2001 ARC CORES LTD 

rem All Rights Reserved 

rem 



rem SCCS release : %M% %I% %G% 
rem 

rem Description : Script to generate a report on analysis of 

rem an ARC assembler file 

rem 

rem 

rem 

rem — 



============= „ # 

@echo off 
del /q *.r 

for %x in (@%1) do echo %x >%x.r 

for %x in (@%1) do awk -f \awk\REPORT . AWK %x\f »%x.r 

for %x in (@%1) do (pushd A cd %x A awk -f \awk\ ratio .AWK %x\cp 

». . \%x.r A popd) 

rem awk ' {printf "\t%5s" $1}' %1 

cat nl isal4 >i 

pr -m -t i *.r 

□ 
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rem 

rem Confidential Information 

rem Limited Distribution to Authorized Persons Only 

rem Created 2000 and Protected as an Unpublished Work 

rem Under the U . S . Copyright act of 1976. 

rem Copyright © 2000-2001 ARC CORES LTD 

rem All Rights Reserved 

rem 

rem SCCS release : %M% %I% %G% 
rem 

rem Description : Script to generate a report on analysis of 

rem an ARC assembler file 

rem 

rem 

rem 

rem — 



20 call rep appsl >tl 



call rep apps2 >t2 
pr -w 160 -s -m -t tl t2 >t 
OS expand -t 8 t >tt 

Q □ 
m 25 

111 

m 



o 

m 
y* 
4: 

0 
1* 
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# 

# Confidential Information 

# Limited Distribution to Authorized Persons Only 

# Created 2000 and Protected as an Unpublished Work 

# Under the U . S . Copyright act of 1976. 

# Copyright© 2000-2001 ARC CORES LTD 

# All Rights Reserved 
# 

# SCCS release : %M% %I% %G% 
# 

# Description : Script to print a report for usage of 

# specified ARC instruction formats from an ISA file 

# and an ARC assembler file. 
# 

# 
# 



# 



BEGIN { 
isa = "isal4" 

while (getline <isa) { format [$1]=1 } 
OFS= n \t" 

} 



for (i in format) { 
if ($1 == i) { 
t += $3 

if ($3 == "") {print "0"} else {print $3} 
# if ($3 == {print $1,"0"} else {print $1,$3} 

} 

} 

} 



END { 
print t 

# for (i in format) { print i} 
} 

□ 
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rem 

rem Confidential Information 

rem Limited Distribution to Authorized Persons Only 

rem Created 2000 and Protected as an Unpublished Work 

rem Under the U. S . Copyright act of 1976. 

rem Copyright © 2000-2001 ARC CORES LTD 

rem All Rights Reserved 

rem 



rem SCCS release : %M% %I% %G% 
rem 

rem Description : Script to strip out non-instruction lin.es 

rem from an ARC assembler file 

rem 

rem 

rem 

rem — 



:========== __„# 

@echo off 

egrep -v " A { $ I ; I . \ . I \ . I [-a-zA-Z] | . [0-9])" d >dd 
wc -1 dd 

grep -c dd 

grep -c "<= Compressable" dd 

□ 
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rem 

rem Confidential Information 

rem Limited Distribution to Authorized Persons Only 

rem Created 2000 and Protected as an Unpublished Work 

rem Under the U . S ♦ Copyright act of 1976. 

rem Copyright © 2000-2001 ARC CORES LTD 

rem All Rights Reserved 

rem 



rem SCCS release : %M% %I% %G% 
rem 

rem Description : Script to strip out more non-instruction lines 

rem from an ARC assembler file 

rem 

rem 

rem 

rem — 



sed "s/ A \[//" dd | sed "s/ \] $//" I grep -v " A .;" 1 tr "|" "\n" i sed 
//" | sed "s/ ;.*//" lawk -f delay. awk >dds 
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# 

# Confidential Information 

# Limited Distribution to Authorized Persons Only 

# Created 2000 and Protected as an Unpublished Work 

# Under the U . S . Copyright act of 1976. 

# Copyright © 2000-2001 ARC CORES LTD 

# All Rights Reserved 
# 

# SCCS release : %M% %I% %G% 
# 

# Description : Script to place instructions that are in a delay 

# slot to before the branch and remove the ".d" 

# from the branch of an ARC assembler file 
# 

# 
# 

#— 



========================--# 

/ { j i j 1 1 b | bl ) { ge | gt | le 1 1 1 1 ne | eq | pi | mi | hi | hs | lo 1 1 s | pnz ) ? \ . d/ { 
stored = $0 

sub(/\.d/, "", stored) 

getline 

print $0 

print stored 

next 

} 

{ print $0 } 
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Instruction formats 

i = instruction opcode 
a = register (rO-3, rl3-16) 
b - register (rO-3, rl3-16) 
c = register (rO-3, rl3-16) 
h = register high (r0-r31) 
q = condition code 
u = unsigned immediate 
s = signed immediate 

Op Format Instruction Operands Comment 

0 iiiiqqssssssss bal/beq/bne s8 ; if cc pc= (pc&Oxf ff f f ffc) + (s8«l) 
iiiillqqssssss bgt/bge/blt/bie s6 ; if cc pc= (pc&Oxf ffff ffc) + (s6«l) 

1 iiiissssssssss bl slO ; blink-pc; pc= {pc&Oxf ffff ffc) + (s!0«2 ) 



2 


iiiiaaabbbiiii 


op 


a,a,b ; 


op 


= sub/and/or/xor/asl/asr/lsr/ 








a,b,l 




asll/asrl/ 








a,b,2 ; 




asl2/asr2/ 








0,a,b 




and.f/mul64/?/?/s_op 




iiiiaaaiiillll 


s op 


a, a ; 


s_ 


_op=extb/extw/sexb/sexw/ 








[a] ; 




j/jl/ 








a , a , a ; 




sub. ne/i_op 




iiiiiiilllllll 


i op3 




i_ 


_op=brk/j [blink] /st blink [sp, 4]/ 


3 


iiiiaaaiuuuuuu 


mov/cmp 


a, u6 






4 


iiiiaaaiiuuuuu 


add/sub/?/? 


a, a, u5 






5 


iiiiaaahhhOOhh 


mov 


a, h 








iiiiaaahhhOlhh 


add 


a, a,h 








iiiiaaahhhlihh 


mov/cmp 


h, a 






6 


iiiiaaaOOOiuuu 


ld/st 


a, [fp, -u3] 


; a=mem[fp - (u3 « 2) ] 




iiiiaaaOOliuuu 


add/? 


a f [fp f -u3] 


; a=fp - (u3 « 2) 




iiiiaaaiiuuuuu 


asl/asr/lsr 


a, a, u5 






7 


i i i i aaabbbuuuu 


Id 


a, [b,u4] 




a=mem[b + (u4«2) ] 


8 


i i i i aa abbbuuuu 


ldb 


a, [b,u4] 




a=mem[b + u4] 


9 


iiii aaabbbuuuu 


ldw 


a, [b f u4] 




a=mem[b + (u4«l) ] 


A 


iiiiaaabbbuuuu 


St 


a, [b,u4] 




a=mem[b + (u4«2) ] 


B 


iiiiaaabbbOuuu 


stb 


a, [b,u3] 




a=mem[b + u3 ] 




iiiiaaabbbluuu 


stw 


a, [b,u3] 




a=mem[b + (u3«l) ] 


C 


iiiiaaabbbiuuu 


add/ sub 


a, b, u3 




a-b op u3 


D 


iiiiaaauuuuuuu 


Id 


a, [pc, u7] 




a=mem[ (pc&Oxf ffff ffc) + (u7 « 2)] 


E 


i i i iaaauuuuuuu 


Id 


a, [gp,u7] 




a=mem[gp + (u7 « 2) ] 


F 


iiiixxxxxxxxxx 


reserved 










Other possible 


formats : 










iiiiaaabbbOccc 


Id 


a, [b, c] 




a=mem[b + c] 




iiiiaaabbblccc 


add 


a,b, c 




a=b+c 




iiiiaaauuuuuuu 


add 


a,pc, u7 


r 


a= (pc&Oxf ffff ffc) + (u7 « 2) 
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